home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / data / wtmr / wtmr_e.mac < prev    next >
Text File  |  1995-02-14  |  7KB  |  222 lines
  1. #=========================================================================
  2. #WTERM 新規加入用 ﾏｸﾛﾌﾟﾛｸﾞﾗﾑ WTMR_E.MAC v2.1
  3. #=========================================================================
  4.  
  5. START:
  6. C$=":"                        #ENTER.PAD内区切り文字｡
  7. LOGOPEN("MAR")
  8. GETMACROD(J$)                #J$=G:\WT\MACRO\
  9. CAT(J$,"ENTER.PAD")            #J$=G:\WT\MACRO\ENTER.PAD
  10. FOPEN(J$,ERR)                #ENTER.PADｵｰﾌﾟﾝ｡
  11. GETLOGD(H$)                    #H$=G:\WT\LOG\
  12. I$="__ENTER.PA_"
  13. CAT(H$,I$)                    #H$=G:\WT\LOG\__ENTER.PA_
  14. JUMPFILEN(H$,GUE)            #__ENTER.PA_がない場合には,初回のｱｸｾｽと判断｡
  15. GOTO(WLCM)                    #__ENTER.PA_がある場合｡二度目のｱｸｾｽと判断｡
  16.  
  17. #=========================================================================
  18. GUE:                        #初回のｱｸｾｽの場合｡
  19. G$="2"                        #入会手続き有無ﾌﾗｸﾞ｡
  20. M$="OFF"                    #手続きせずに抜けるｺﾏﾝﾄﾞ｡
  21. FCLOSE                        #ENTER.PADを閉じる｡
  22. PRINTCR("            AUTO PILOT WTMR_E.MAC v2.1 START!  by Gako")
  23. PRINTCR("")
  24. PRINTCR("                   ようこそいらっしゃいました！")
  25. PRINTCR("")
  26. PRINTCR("")
  27. PRINTCR("     今回のｱｸｾｽでは,規約等を全て読んで戴いて,一度ﾛｸﾞｱｳﾄします｡")
  28. PRINTCR("")
  29. PRINTCR("次回ｱｸｾｽ時に入会手続きを行いますので,今回のﾛｸﾞをよく読んで下さいね｡")
  30. PRINTCR("")
  31. PRINTCR("")
  32. PRINTCR("         今回は少々時間がかかりますが,そのままお待ち下さい｡")
  33. PRINTCR("")
  34. PRINTCR("")
  35. GETLOGD(K$)                    #K$=G:\WT\LOG\
  36. O$=K$                        #O$=K$=G:\WT\LOG\
  37. LENGTH(N$,K$)                #N$はK$の文字列の長さ｡
  38. DEL(K$,N$,"1")                #K$の文字を一つ削除｡即ち,\の削除｡
  39. CAT(L$,"copy ",J$)            #L$=COPY G:\WT\MACRO\ENTER.PAD
  40. CAT(L$," ")
  41. CAT(L$,K$)                    #L$=COPY G:\WT\MACRO\ENTER.PAD G:\WT\LOG
  42. CHILD(L$)                    #COPY実行｡
  43. N$="ren "                    #ENTER.PADを,__ENTER.PA_に改名｡
  44. CAT(O$,"ENTER.PAD")            #O$=G:\WT\LOG\ENTER.PAD
  45. CAT(O$," __ENTER.PA_")        #O$=G:\WT\LOG\ENTER.PAD __ENTER.PA_
  46. CAT(N$,O$)                    #N$=REN G:\WT\LOG\ENTER.PAD __ENTER.PA_
  47. CHILD(N$)                    #改名実行｡
  48. GOTO(ID)
  49.  
  50. #=========================================================================
  51. WLCM:                        #二度目のｱｸｾｽの場合｡
  52. G$="1"                        #入会手続き有無ﾌﾗｸﾞ｡
  53. M$="SGN"                    #入会手続きを行うｺﾏﾝﾄﾞ｡
  54. PRINTCR("              AUTO PILOT WTMR_E.MAC v2.1 START!  by Gako")
  55. PRINTCR("")
  56. PRINTCR("                    ようこそいらっしゃいました！")
  57. PRINTCR("")
  58. PRINTCR("        今度は入会手続きに入ります｡そのままお待ち下さいね (^o^)v")
  59. PRINTCR("")
  60. PRINTCR("")
  61.  
  62. ID:
  63. TIMED("ON")                    #ｱｸｾｽﾀｲﾑ表示｡
  64. WAIT("User-ID  --->")
  65. SEND("MAR00000\R")            #GUESTとしてｱｸｾｽするｺﾏﾝﾄﾞ｡
  66. WAIT("ださい－")
  67. SEND("\R")
  68. WAIT("\010：")
  69. SEND("\R")
  70. WAIT(")＞")
  71. SEND(M$)
  72. SEND("\R")
  73.  
  74. #-------------------------------------------------------------------------
  75. LOOP:
  76. SWITCH
  77.     CASE("\010＞")
  78.         WAIT("")
  79.         GOTO(ENTER)
  80.     CASE("\010：")
  81.         WAIT("")
  82.         SEND("\R")
  83.         GOTO(LOOP)
  84. END
  85.  
  86. #-------------------------------------------------------------------------
  87. ENTER:                        #ｱｸｾｽ回数による分岐｡
  88. SEND(G$)                    #初回ｱｸｾｽでは2,二回目のｱｸｾｽでは1を送信｡
  89. SEND("\R")
  90. VSWITCH(G$)
  91.     CASE("2")                #規約等を読む｡
  92.         GOTO(NEXT)
  93.     CASE("1")                #入会手続きをする｡
  94.         GOTO(ENTER1)
  95. END
  96.  
  97. ENTER1:
  98. WAIT("：",1,ENTER1)
  99. GETCRTS(D$,"1")
  100. JUMPSRCHY(D$,"職業(職種)の",WRITE0)
  101. GETCRTS(D$,"4")
  102. JUMPSRCHY(D$,"性別",GEND)
  103. GETCRTS(D$,"3")
  104. JUMPSRCHY(D$,"☆ その",HAND)
  105.  
  106. ENTER2:
  107. FREAD(A$)                    #ENTER.PADから一行読み込む｡
  108. JUMPE(A$,"",ENTER2)            #ENTER.PADの空白行の場合,繰り返し｡
  109. PICKWORD(B$,A$,C$)            #C$=:
  110. IFE(A$,"")                    #ENTER.PAD記述ﾐｽ(空白)の場合｡
  111.     A$="記入指定漏れです｡ m(_._)m "
  112. SEND(A$)                    #記述内容の送信｡
  113. SEND("\R")
  114.  
  115. WRITE0:                        #記入項目による分岐｡
  116. WAIT("：",1,WRITE0)            #ﾌﾟﾛﾝﾌﾟﾄ待ち｡
  117. GETCRTS(D$,"1")
  118. JUMPSRCHY(D$,"趣味／活動所望は",END0)
  119. GETCRTS(D$,"4")
  120. JUMPSRCHY(D$,"性別",ENTER2)
  121. GETCRTS(D$,"3")
  122. JUMPSRCHY(D$,"☆ きち",PAS)    #ﾊﾟｽﾜｰﾄﾞ入力ﾐｽの場合｡
  123. JUMPSRCHY(D$,"☆ 正し",HAND0)
  124. SEND("\R")                    #確認改行送信｡
  125. GOTO(ENTER1)
  126.  
  127. #=========================================================================
  128. HAND:                        #既に同じﾊﾝﾄﾞﾙ名が存在する場合｡
  129. INPUT(A$,"指定ﾊﾝﾄﾞﾙ名が存在しますので,12 ﾊﾞｲﾄ以内で変更して下さい｡","705")
  130. JUMPE(A$,"",HAND)            #入力がない場合,再度入力を促す｡
  131. LENGTH(F$,A$)
  132. JUMP>(F$,"12",HAND)            #12ﾊﾞｲﾄより長い場合,再度入力を促す｡
  133. SEND(A$)
  134. SEND("\R")
  135. GOTO(WRITE0)
  136.  
  137. HAND0:                        #ﾊﾝﾄﾞﾙ名が12ﾊﾞｲﾄより長い場合｡
  138. INPUT(A$,"指定のﾊﾝﾄﾞﾙ名を 12 ﾊﾞｲﾄ以内に変更して下さい｡","705")
  139. JUMPE(A$,"",HAND0)            #入力がない場合,再度入力を促す｡
  140. LENGTH(F$,A$)
  141. JUMP>(F$,"12",HAND0)        #12ﾊﾞｲﾄより長い場合,再度入力を促す｡
  142. SEND(A$)
  143. SEND("\R")
  144. WAIT("：")
  145. SEND("\R")
  146. GOTO(ENTER1)
  147.  
  148. #-------------------------------------------------------------------------
  149. PAS:
  150. INPUT(A$,"ﾊﾟｽﾜｰﾄﾞ指定ﾐｽです｡8ﾊﾞｲﾄ以内で入力して下さい｡","705")
  151. JUMPE(A$,"",PAS)            #入力がない場合,再度入力を促す｡
  152. LENGTH(F$,A$)                #入力した長さを格納｡
  153. JUMP>(F$,"8",PAS)            #8ﾊﾞｲﾄより長い場合,再度入力を促す｡
  154. SEND(A$)
  155. SEND("\R")
  156. WAIT("：")
  157. SEND("\R")
  158. GOTO(ENTER1)
  159.  
  160. #-------------------------------------------------------------------------
  161. GEND:                        #性別記入ﾐｽ処理｡
  162. INPUT(A$,"男性は 1 ,女性は 2 と入力して下さい｡","705.120")
  163. JUMP<(A$,"1",GEND)            #1 or 2以外の場合,再度入力を促す｡
  164. JUMP>(A$,"2",GEND)
  165. SEND(A$)
  166. SEND("\R")
  167. GOTO(ENTER1)
  168.  
  169. #=========================================================================
  170. ERR:                        #ENTER.PADが存在しない場合｡
  171. WAIT("User-ID  --->")
  172. SEND("KILL\R")                #新規入会ﾏｸﾛﾐｽ用,強制回線切断ｺﾏﾝﾄﾞ｡
  173. WAIT("切断します－")
  174. PRINTCR("")
  175. PRINTCR("")
  176. PRINTCR("      必須の指定ﾌｧｲﾙ ENTER.PAD が指定場所にみつかりません｡")
  177. PRINTCR("")
  178. PRINTCR("        もう一度設定しなおしてｱｸｾｽして下さい｡  m(_._)m")
  179. PRINTCR("")
  180. PRINTCR("")
  181. EXIT
  182.  
  183. #=========================================================================
  184. NEXT:                        #初回ｱｸｾｽ終了処理｡
  185. WAIT("切断します－")
  186. LOGCLOSE
  187. PRINTCR("")
  188. PRINTCR("")
  189. PRINTCR("                MACRO STOP! SEE YOU AGAIN!  (^o^)／ﾟ")
  190. PRINTCR("")
  191. PRINTCR("                        ご苦労さまでした！")
  192. PRINTCR("")
  193. PRINTCR("       よく規約を読んで,同意されるなら,もう一度ｱｸｾｽして下さい｡")
  194. PRINTCR("")
  195. PRINTCR("             次回には自動的に入会手続きをとります｡ (^｡^)")
  196. PRINTCR("")
  197. EXIT
  198.  
  199. #-------------------------------------------------------------------------
  200. END0:                        #最終項目送信終了後処理｡
  201. SEND("\R")
  202. WAIT("1:OK 2:NG)：")
  203. SEND("1\R")
  204. FCLOSE                        #ENTER.PADを閉じる｡
  205. WAIT("?? ([1:YES]  2:NO)：")
  206. SEND("2\R")                    #引き続き通信をしない,を選択｡取り敢えず抜ける｡
  207. WAIT("切断します－")
  208. LOGCLOSE
  209. PRINTCR("")
  210. PRINTCR("")
  211. PRINTCR("")
  212. PRINTCR("                MACRO STOP! SEE YOU AGAIN!  (^o^)／ﾟ")
  213. PRINTCR("")
  214. PRINTCR("                     さあ会員登録できましたよ！")
  215. PRINTCR("")
  216. PRINTCR("        次回以降のアクセスの時には，設定を変更する必要があります。")
  217. PRINTCR("")
  218. PRINTCR("              SET_WT.DOC と WTMRF105.DOC をお読み下さい。")
  219. PRINTCR("")
  220. EXIT
  221. #=========================================================================
  222.